home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / METROSTK.cpt / MetroStack / stack_-1.xml < prev    next >
Extensible Markup Language  |  1989-04-11  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>8</cardCount>
  7.     <cardID>6261</cardID>
  8.     <listID>6644</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>------------------------------------------------------------------------------------------------------------------------------------------------------- MetroStack is ¬©1989 D.C. Mac Services, Arlington, VA ------------------------------ All Scripts by Will Cate ---------------------------------------------------------------------------------------------------------------------------------------------------------------------on openStackglobal Q,oneVis,twoVis,tripOn,infoOn,startEnd,¬¨done,theStart,theEnd,boxTextif the version < 1.2 thenput "Sorry!  Requires HyperCard 1.2 or greater!" with "Go Home"go homeexit openStackend ifput 0 into oneVisput 0 into twoVisput 0 into tripOnput 0 into infoOnput 1 into startEndput 0 into theStartput 0 into theEndput 0 into doneput numToChar(34) into Qput empty into boxTextend openStack-- these are the routines for calculating and displaying trip data --on SetupTrip valueglobal station,stationNum,done,startEnd,boxText,tripOn,infoOnset cursor to busyif tripOn = 1 thenif value < 10 thenput char 1 of station into stationNumdelete char 1 of stationTripRoutine station,stationNumset cursor to busyif done = 0 thenput 2 into startEndput "Click on destination station" & return¬¨& "(or click this box to cancel)" into bg fld 1put bg fld 1 into boxTextelseput 1 into startEndend ifelseset cursor to busyput char 1 to 2 of station into stationNumdelete char 1 to 2 of stationTripRoutine station,stationNumif done = 0 thenput 2 into startEndput "Click on destination station" & return¬¨& "(or click this box to cancel)" into bg fld 1put bg fld 1 into boxTextelseput 1 into startEndset cursor to busyend ifend ifend ifif infoOn =1 thenGetInfo valueend ifend SetupTripon TripRoutine stat,statNumglobal tripOn,startEnd,theStart,theEnd,¬¨done,statName1,statName2,theFare1,theFare2,theFare3,infoOnset cursor to busyif tripOn = 1 thenif startEnd = 1 thenbeepput statNum into theStartput stat into statName1put 0 into doneend ifif startEnd = 2 thenbeepbeepput statNum into theEndput stat into statName2set cursor to busyif theStart < theEnd thenput item theStart of GetString(15002,theEnd) into theTimeelseput item theEnd of GetString(15002,theStart) into theTimeend ifif theStart < theEnd thenput item theStart of GetString(15001,theEnd) into theFare1elseput item theEnd of GetString(15001,theStart) into theFare1end ifif theStart < theEnd thenput item theEnd of GetString(15001,theStart) into theFare2elseput item theStart of GetString(15001,theEnd) into theFare2end ifif theStart < theEnd thenput item theEnd of GetString(15002,theStart) into theFare3elseput item theStart of GetString(15002,theEnd) into theFare3end ifset cursor to busyInfoField theFare1,theTime,statName1,statName2,theFare2,theFare3put 1 into startEndput 1 into doneput 0 into tripOnend ifend ifend TripRoutine-- this handler fills & displays the Info pop-up field according ---- to whatever parameters are passed to it.                      --on InfoField local1,local2,local3,local4,local5,local6global tripOnset cursor to busyif tripOn = 1 thenset numberFormat to "0.00"put local1/100 into local1put local5/100 into local5put local6/100 into local6set cursor to busyput "From " & local3 & return & " to " & local4 & ":" &¬¨return & return & "Average time - " &¬¨local2 & " minutes." & return & "Rush hour - $" &¬¨local5 & return & "Non-rush - $" & local1 & return &¬¨"Sr. Citizen/Disabled - $" & local6 & return & "Average time: "¬¨